home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / DATACH.CST / 00057_Script_57 < prev    next >
Text File  |  1999-03-07  |  1KB  |  35 lines
  1. on exitFrame
  2.   --  set currentplane = "challenger 604"
  3.   getannualcostsmain()  -- fill main values
  4. end
  5. on enterframe
  6.   global compdrawplace
  7.   set compdrawplace = "Annual"
  8.   clearpups
  9.   getaircrafts      -- fill popups
  10.   getmainvalues
  11.   if the text of field "disPlane" = "No Competitor" then
  12.     set the text of field "Lcairprice" = " "
  13.     set the text of field "Lcresidual" = " "
  14.     set the text of field "Lcdepreciation" = " "
  15.     set the text of field "Lclease" = " "
  16.     set the text of field "Lcnadirect" = " "
  17.     set the text of field "Lcnafixed" = " "
  18.     set the text of field "Lcedirect" = " "
  19.     set the text of field "Lcefixed" = " "
  20.     set the text of field "Lcnabudget" = " "
  21.     set the text of field "Lcebudget" = " "
  22.     set the text of field "Ldairprice" = " "
  23.     set the text of field "Ldresidual" = " "
  24.     set the text of field "Lddepreciation" = " "
  25.     set the text of field "Ldlease" = " "
  26.     set the text of field "Ldnadirect" = " "
  27.     set the text of field "Ldnafixed" = " "
  28.     set the text of field "Ldedirect" = " "
  29.     set the text of field "Ldefixed" = " "
  30.     set the text of field "Ldnabudget" = " "
  31.     set the text of field "Ldebudget" = " "
  32.     --    set the text of field "disPlane" = " "
  33.   end if
  34. end
  35.